home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / clean / sun3.lha / Sun3 / seqdemos / nfib.icl < prev    next >
Text File  |  1992-08-07  |  282b  |  20 lines
  1. MODULE nfib;
  2.  
  3. <<
  4. The nfib function.
  5.  
  6. To obtain maximum performance guards are used instead of
  7. pattern matching.
  8. >>
  9.  
  10. IMPORT deltaI;
  11.  
  12. RULE
  13.  
  14. ::  Nfib INT -> INT;
  15.     Nfib n  ->  1 , IF < n 2
  16.             ->  ++ (+ (Nfib (-- n)) (Nfib (- n 2)));
  17.  
  18. ::  Start -> INT;
  19.     Start -> Nfib 30;
  20.